home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / KillThisAuthor.zprx < prev    next >
Text File  |  1996-01-02  |  924b  |  54 lines
  1. /* $VER: KillThisAuthor.zprx 1.0 (2.1.96) by Ralph Seichter */
  2.  
  3. parse arg zp
  4. if zp = "" then
  5.     zp = "ZPoint"
  6. address value zp
  7. options results
  8.  
  9. whichlevel
  10. if result ~= "BOARD" then do
  11.     requestnotify 'Run this script from within a board!'
  12.     exit 0
  13. end
  14.  
  15. messageinfo author
  16. killauthor = result
  17. p = POS(' ', killauthor)
  18. if p = 0 then
  19.     p = POS('(', killauthor)
  20. if p > 0 then
  21.     killauthor = LEFT(killauthor, p - 1) || '#?'
  22. lf = '0A'X
  23. requestresponse 'Mark all messages sent by 'lf || '"'killauthor'" for deletion?'
  24. if ~rc then
  25.     exit 0
  26.  
  27. killed = 0
  28. more = 1
  29. do while more
  30.     jumptomessage 1
  31.     mmore = 1
  32.     do while mmore
  33.         jumptomessage name killauthor
  34.         mmore = rc
  35.         if mmore then do
  36.             delete one later
  37.             markasold one
  38.             killed = killed + 1
  39.             down
  40.             mmore = rc
  41.         end
  42.     end
  43.     boardmenu
  44.     down
  45.     more = rc
  46.     if more then
  47.         enterboard
  48. end
  49.  
  50. requestnotify killed' messages of author'lf'"'killauthor'"'lf' marked for deletion.'
  51. exit 0
  52.  
  53. /* EOF */
  54.